home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v10n22 / numstr.bas < prev    next >
Encoding:
BASIC Source File  |  1991-11-25  |  358 b   |  19 lines
  1.  
  2. THE NUM2STR$ FUNCTION
  3. COMPLETE LISTING
  4.  
  5.  
  6. DECLARE FUNCTION Num2Str$ (Value&)
  7.  
  8. INPUT "Enter the number of pennies: ", Pennies&
  9. PRINT Num2Str$(Pennies&)
  10.  
  11. FUNCTION Num2Str$ (Pennies&) STATIC
  12.   Dollars& = Pennies& \ 100
  13.   Cents% = Pennies& MOD 100
  14.   Num2Str$ = STR$(Dollars&) + "." + _
  15.     RIGHT$("0" + LTRIM$(STR$(Cents%)), 2)
  16. END FUNCTION
  17.  
  18.  
  19.